home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
PROGRAMR
/
LB09D.ZIP
/
READDATA.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-07-25
|
333b
|
20 lines
[start]
a$ = ""
while a$ <> "EOD"
read a$
if a$ <> "EOD" then print a$
wend
input r$
if flag = 0 then restore [two] : flag = 1 : goto [start]
flag = 0 : restore [one] : goto [start]
[one]
data this, is, not, "the end", EOD
[two]
data of, the, world, !!!!, EOD